home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DBASE_UT
/
QUIKDB
/
GETFDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-10-16
|
1KB
|
30 lines
uses getfield,Crt;
Var
ReturnVal : Integer;
TempStr : Array[1..10] of string;
CH : Char;
begin
FillChar(TempStr,SizeOf(TempStr),#0);
TempStr[2] := 'This field already has data';
{------ Here's an example of the caling sequence for getfield ------}
SetUp_Field($1f,$30,$1f,$30,' ',TRUE,TRUE,FALSE,TRUE,TRUE,TRUE);
Field_Str(10,06,35,' Alpha Numeric: ',TempStr[1],'@A');
Field_Str(10,08,35,' UpperCase: ',TempStr[2],'@!');
Field_Str(10,10,01,'Logical T or F: ',TempStr[3],'L');
Field_Str(10,12,25,' Any Type: ',TempStr[4],'');
Field_Str(10,14,01,' Y or N input: ',TempStr[5],'Y');
Field_Str(10,16,25,' Numeric: ',TempStr[6],'@#');
Field_Str(10,18,25,' Decimal: ',TempStr[7],'@9:2');
Field_Str(10,20,14,' Phone: ',TempStr[8],'(###) ###-####');
Field_Str(10,22,08,' Date: ',TempStr[9],'@D');
Do_Fields(ReturnVal);
{----- That's all there is to it ------------------------------------}
end.